home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tcl / demos / color < prev    next >
Encoding:
Text File  |  1992-04-29  |  1.0 KB  |  33 lines
  1. #!/usr/local/wish -f
  2. #
  3. # Simple script to change colors of a window.
  4.  
  5. if "$argc < 3" {error "Usage: color appName window option"}
  6. set appName [lindex $argv 0]
  7. set widget [lindex $argv 1]
  8. set option [lindex $argv 2]
  9. set red 0
  10. set green 0
  11. set blue 0
  12.  
  13. option add *Scale.sliderForeground "#cdb79e"
  14. option add *Scale.activeForeground "#ffe4c4"
  15. pack append . [scale .red -command "color red" -label "Red Intensity" \
  16.     -from 0 -to 255 -orient horizontal -bg "#ffaeb9" -length 250] \
  17.     {top expand fill}
  18. pack append . [scale .green -command "color green" -label "Green Intensity" \
  19.     -from 0 -to 255 -orient horizontal -bg "#43cd80"] {top expand fill}
  20. pack append . [scale .blue -command "color blue" -label "Blue Intensity" \
  21.     -from 0 -to 255 -orient horizontal -bg "#7ec0ee"] {top expand fill}
  22.  
  23. proc color {which intensity} {
  24.     global red green blue appName widget option
  25.     set $which $intensity
  26.     send $appName $widget config $option \
  27.         [format #%02x%02x%02x $red $green $blue]
  28. }
  29.  
  30. bind . <Control-q> {destroy .}
  31. bind . <Control-c> {destroy .}
  32. focus .
  33.